﻿Imports System.Configuration

Namespace Configuration

    Public Class BoxOfficeSection
        Inherits ConfigurationSection

        <ConfigurationProperty("Sites")> _
        Public ReadOnly Property Sites() As FormCollection
            Get
                Return DirectCast(Me("Sites"), FormCollection)
            End Get
        End Property

        Private _SectionConfig As ConfigurationSection
        Public Property SectionConfig() As ConfigurationSection
            Get
                Return _SectionConfig
            End Get
            Set(ByVal value As ConfigurationSection)
                _SectionConfig = value
            End Set
        End Property

        Sub New()
            MyBase.New()
            SectionConfig = ConfigurationManager.GetSection(String.Format("~/{0}", Me.ElementInformation.Source))
        End Sub

    End Class

End Namespace
